lapop12 = readRDS('data/lapop12.rds')

#### Histogram of Respondents ##### 

densityhist <- ggplot(lapop12, aes(x=trend)) + 
  geom_histogram(binwidth=1) + 
  geom_vline(xintercept=0, col = 'red', lty = 2) + 
  xlab("Event Time") +
  ylab("Number of Respondents") +
  ggtitle("Histogram of Respondents") +
  theme_tufte()

ggsave("fig-out/respond_hist.pdf")
